unit umodpass;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TFmModpass }

  TFmModpass = class(TForm)
    BTOK: TButton;
    EDConfirmNewPas: TEdit;
    EDoldpas: TEdit;
    EDNewPas: TEdit;
    LBOldPass: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure BTOKClick(Sender: TObject);
    procedure EDConfirmNewPasKeyPress(Sender: TObject; var Key: char);
    procedure EDNewPasKeyPress(Sender: TObject; var Key: char);
    procedure EDoldpasKeyPress(Sender: TObject; var Key: char);
  private

  public

  end;

var
  FmModpass: TFmModpass;

implementation

{$R *.lfm}

{ TFmModpass }

procedure TFmModpass.BTOKClick(Sender: TObject);
begin

end;

procedure TFmModpass.EDConfirmNewPasKeyPress(Sender: TObject; var Key: char);
begin

end;

procedure TFmModpass.EDNewPasKeyPress(Sender: TObject; var Key: char);
begin

end;

procedure TFmModpass.EDoldpasKeyPress(Sender: TObject; var Key: char);
begin

end;

end.

